home *** CD-ROM | disk | FTP | other *** search
/ EIDOS Interactive Digital Press Kit ECTS 1997 / EIDOS Digital Press Kit - ECTS 1997 - Disc 1.iso / pc / xtras / shared.cst / 00054.ls < prev    next >
Encoding:
Text File  |  1996-08-21  |  397 b   |  14 lines
  1. on xtracopy
  2.   openXLib "Xtras\filecopy"  -- custom xtra
  3.   
  4.   set filename = the pathName&"screens\"&the name of cast the mousecast
  5.   
  6.   if fileName > "" then
  7.     set wFileName = doSaveAsDlg(the pathName&"screens\"&the name of cast the mousecast, "Bitmap Files@*.bmp")
  8.     if wFileName > "" then
  9.       copyFile(wFileName, fileName)
  10.     end if  
  11.   end if
  12.   
  13.   closeXLib "Xtras\filecopy"
  14. end xtracopy